home *** CD-ROM | disk | FTP | other *** search
/ Rockford Magazine / Rockford_Magazine_026_19xx_-_de_Disk_1_of_2_Side_B.d64 / biker dave (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  7KB  |  215 lines
  1. 10 poke53280,12:poke53281,12
  2. 20 print"[147][144][181]     biker dave will be ready       [144][182]"
  3. 30 print"[181]     to ride in just a moment       [144][182][146]"
  4. 40 print"[181]";:printspc(36);:print"[182]"
  5. 50 print"[181]";:printspc(36);:print"[182]"
  6. 60 print"[181]";:printspc(36);:print"[182]"
  7. 70 sa=249*64:poke53250,72:poke53251,153:poke53276,2:poke2041,249
  8. 80 gosub1360:gosub1360:restore
  9. 90 poke53285,7:poke53286,1:poke53288,0:poke53269,2
  10. 100 print"[144]":printspc(6);:fori=1to22:poke53250,72+i*8:print"[191]";:forj=1to50
  11. 110 next:next:poke55,0:poke56,48:clr
  12. 120 poke54276,0:poke54296,15:poke54290,128:poke54287,255:gosub1370
  13. 130 poke54276,16
  14. 140 poke54277,0:poke54278,240:pokev1,0:pokev2,50
  15. 150 fori=1to3:poke214,13:print:printtab(15)"get ready!";
  16. 160 poke54276,17:forj=1to255:next
  17. 170 print"[157][157][157][157][157][157][157][157][157][157]          ":poke54276,64:forj=1to255:next:next
  18. 180 fori=1to150:next
  19. 190 poke54276,0:poke54278,240:poke54277,9
  20. 200 pokev1,0:pokev2,0:poke54274,100:poke54275,0:poke54276,65
  21. 210 x=x+int(sp*.04)+1:pokev1,sp*twandf:pokev2,sp*.0078+tw
  22. 220 ifx>fthenpoke53264,18:x=x-256:l=1
  23. 230 ifl=1thenifx>55thengoto290
  24. 240 pokevx,x:if(peek(js)and16)=0thensp=sp+5
  25. 250 poke214,20:print:printtab(19)sp:fori=0tof-sp*sp:next
  26. 260 ifsp>s1thenpoke2041,254
  27. 270 ifsp>s2thendx=4:goto640
  28. 280 goto210
  29. 290 c1=153+c*8:y=131:poke53251,y:pokevx,57:poke2041,253:fori=1tof:next
  30. 300 x=x-int(sp*.04)-1:pokev1,sp*twandf:pokev2,sp*.0078+tw
  31. 310 ifl=0thenifx<c1then360
  32. 320 ifx<0thenpoke53264,16:x=f+x:l=0
  33. 330 pokevx,x:if(peek(js)and16)=0thensp=sp+5
  34. 340 poke214,20:print:printtab(19)sp
  35. 350 forj=1tof-sp*sp:next:goto300
  36. 360 poke2041,f:dx=-3:dy=int(dx*.35):k=0
  37. 370 mp=int(((sp-jp)*.5+jp)*.105)
  38. 380 x=x+dx:y=y+dy:k=k+1
  39. 390 pokevx,x:poke53251,y
  40. 400 forj=1tof-sp*sp:next
  41. 410 ify>131theny=131:dy=0:poke2041,253:goto380
  42. 420 ifk=mpthendy=-dy*.3
  43. 430 ifx<122thenifx>117thenify<112ory>120thenpoke53251,131:goto650
  44. 440 ifx<37then460
  45. 450 goto380
  46. 460 c1=242-c*16:y=195:poke53251,y:pokevx,35:poke2041,249:fori=1tof:next
  47. 470 x=x+int(sp*.04)+1:pokev1,sp*twandf:pokev2,sp*.0078+2
  48. 480 ifx>c1then530
  49. 490 ifx>fthenpoke53264,18:x=x-256:l=1
  50. 500 pokevx,x:if(peek(js)and16)=0thensp=sp+5
  51. 510 poke214,20:print:printtab(19)sp
  52. 520 forj=1tof-sp*sp:next:goto470
  53. 530 poke2041,254:dx=4:dy=-int(dx*.5):k=0
  54. 540 mp=int(((sp-jp)*.5+jp)*.105)
  55. 550 x=x+dx:y=y+dy:k=k+1
  56. 560 ifx>fthenpoke53264,18:x=x-256:l=1
  57. 570 pokevx,x:poke53251,y
  58. 580 forj=1tof-sp*sp:next
  59. 590 ify<195then620
  60. 600 y=195:poke53251,y:poke2041,249:ifx<54orx>66then640
  61. 610 goto790
  62. 620 ifk=mpthendy=-int(dy*.3)
  63. 630 goto550
  64. 640 c1=-5:poke2041,249:goto660
  65. 650 c1=-2:poke2041,253
  66. 660 x=x+dx:c1=-c1:poke2041,peek(2041)+c1
  67. 670 ifx>fthenpoke53264,18:x=x-256:l=1
  68. 680 ifl=1thenifx>53thenify=67then730
  69. 690 ifx<40thenifl=0then730
  70. 700 ifx>100thenifl=1then730
  71. 710 pokevx,x:forj=1tof-sp*sp:next
  72. 720 pokev2,rnd(1)*4:pokev1,f*rnd(1):goto660
  73. 730 poke54276,64:pokevx,0:poke53264,16
  74. 740 poke54279,0:poke54280,4:poke54284,37:poke54285,250:poke54283,129
  75. 750 fori=1to15:j=rnd(1)*6
  76. 760 poke53265,(peek(53265)and248)orj:poke53270,(peek(53270)and248)orj
  77. 770 next:poke54283,128:fori=1to255:next
  78. 780 poke53265,27:poke53270,200:goto950
  79. 790 x=x+dx
  80. 800 ifx>150thenpoke54276,0:goto840
  81. 810 pokevx,x
  82. 820 forj=1tof-sp*sp:next
  83. 830 goto790
  84. 840 poke214,21:print:printtab(14)tc
  85. 850 c=c+1:tc=tc+c:s=2*(c*10-tr*5):tr=2:ifc>9thend=1:goto1270
  86. 860 s1=rnd(1)*10+36+8*c:s2=rnd(1)*15+81+8*c:jp=rnd(1)*20+90
  87. 870 poke54277,0:poke54278,160:pokev1,47:pokev2,65:poke54274,0:poke54275,8
  88. 880 fori=ttot+sstep5
  89. 890 poke54276,65:poke54276,64
  90. 900 poke214,22:print:printtab(19)i:forj=1to50:next
  91. 910 next:t=t+s
  92. 920 fori=1to8:poke53254,peek(53254)-2:poke53258,peek(53258)+1:next
  93. 930 gosub1160
  94. 940 goto970
  95. 950 bi=bi-1:ifbi>0thentr=tr+1:poke214,21:print:printtab(35)bi:goto970
  96. 960 d=0:goto1270
  97. 970 poke54272,0:poke54273,0
  98. 980 x=42:y=67:poke2041,249:poke53251,y:pokevx,x:poke53264,16:l=0:sp=5
  99. 990 poke214,20:print:printtab(19)" 0  "
  100. 1000 goto130
  101. 1010 poke53280,12:poke53281,12
  102. 1015 print"[147]biker":print" dave":print"[144][165]   [167]";tab(36);"[153]  [223]"
  103. 1020 print"[144] [204][175][175][175][186][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][153]   "
  104. 1030 printtab(37);:gosub1150
  105. 1040 print" [169]  ";tab(36);"   "
  106. 1050 print"    [144][146][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][153]  [146][169]
  107. 1060 [153]" ";:[141]1150
  108. 1070 [153]"    "
  109. 1080 [153]" (NULL)  waitstopandandandandandandandandandandandandandandandandandandandandandand      andandandandandandand"
  110. 1090 [129]c[178]1[164]3:[141]1160:[130]:[153]
  111. 1100 [151]56095,0:[151]1823,111
  112. 1110 [153][163]13)"speed: 0   mph"
  113. 1120 [153]" cars jumped:  0        bikes left: 5"
  114. 1130 [153][163]13)"score: 0"
  115. 1140 [142]
  116. 1150 [153]"  cmdcmd  cmdcmd  cmdcmd  cmdcmd  cmdcmd  ":[142]
  117. 1160 j[178][181]([187](1)[172]8):[151]214,17:[153]:[153][163]32[171]c[172]2);c$(j);"  cmdcmd^_":[142]
  118. 1170 x[178]42:y[178]67:[151]53250,x:[151]53251,y:[151]53275,2:[151]53276,66
  119. 1180 [151]53254,206:[151]53255,195:[151]53256,26:[151]53257,195
  120. 1190 [151]53258,158:[151]53259,131:[151]53248,120:[151]53249,109
  121. 1200 [151]53252,120:[151]53253,109:[151]53260,120:[151]53261,94
  122. 1210 [151]53264,16:sp[178]5:l[178]0
  123. 1220 [129]i[178]0[164]4:[151]2040[170]i,248[170]i:[130]:[151]2045,252:[151]2046,246
  124. 1230 [151]53271,69
  125. 1240 [151]53269,127:[151]53277,16:[151]53290,0:[151]53291,0:[151]53292,0
  126. 1250 [151]53287,0:[151]53289,0:[151]53293,10
  127. 1260 [142]
  128. 1270 [151]54276,64:[151]53281,6:[151]53269,0:[153]"load"
  129. 1280 [139]d[167][153][163]5)"consider yourself king biker!!":[137]1300
  130. 1290 [153]"sysyou have wrecked your last bike!"
  131. 1300 [153]"sysyou successfully jumped";tc[171]c;"cars"
  132. 1310 [153][163]11)"sysfinal score is";t
  133. 1320 [153][163]8)"openpress fire to play again"
  134. 1330 [139]([194](js)[175]16)[178]0[167][141]1380:[137]130
  135. 1340 [137]1330
  136. 1350 [129]j[178]248[164]255:sa[178]j[172]64:[141]1360:[130]:[142]
  137. 1360 [129]i[178]0[164]39:[135]a:[151]sa[170]i,a:[130]:[129]i[178]40[164]63:[151]sa[170]i,0:[130]:[142]
  138. 1370 [141]1350:[141]1820:[141]1900:[141]2070
  139. 1380 x[178]42:sp[178]5:y[178]67:dx[178]dy:l[178]0:k[178]mp:vx[178]53250:v1[178]54272:v2[178]54273:tw[178]2:f[178]255
  140. 1390 js[178]56320:jp[178][187](1)[172]20[170]90:c[178]3:s1[178]65:s2[178]105:bi[178]5:t[178]0:tr[178]2:s[178]0:tc[178]3
  141. 1400 [141]1010:c[178]3:[141]1170
  142. 1410 [142]
  143. 1420 [131]0,12,0,0,6,0,0,3
  144. 1430 [131]0,0,1,128,0,1,128,0
  145. 1440 [131]0,192,0,0,192,0,0,192
  146. 1450 [131]0,1,128,0,1,128,0,3
  147. 1460 [131]0,0,6,0,0,12,0,0
  148. 1470 [131]0,0,0,0,0,0,0,15
  149. 1480 [131]0,0,15,0,0,60,0,0
  150. 1490 [131]252,0,3,207,0,23,195,64
  151. 1500 [131]87,213,80,105,246,144,130,120
  152. 1510 [131]32,130,200,32,40,2,128,0
  153. 1520 [131]0,48,0,0,96,0,0,192
  154. 1530 [131]0,1,128,0,1,128,0,3
  155. 1540 [131]0,0,3,0,0,3,0,0
  156. 1550 [131]1,128,0,1,128,0,0,192
  157. 1560 [131]0,0,96,0,0,48,0,0
  158. 1570 [131]0,0,0,0,0,0,0,0
  159. 1580 [131]0,0,0,0,0,0,3,0
  160. 1590 [131]0,15,0,0,63,0,0,255
  161. 1600 [131]0,3,255,0,15,255,0,63
  162. 1610 [131]255,0,255,255,3,255,255,0
  163. 1620 [131]0,0,0,0,0,0,0,0
  164. 1630 [131]0,0,0,0,192,0,0,240
  165. 1640 [131]0,0,252,0,0,255,0,0
  166. 1650 [131]255,192,0,255,240,0,255,252
  167. 1660 [131]0,255,255,0,255,255,192,0
  168. 1670 [131]0,0,0,0,0,0,15,0
  169. 1680 [131]0,15,0,0,3,192,0,3
  170. 1690 [131]240,0,15,60,0,28,61,64
  171. 1700 [131]85,125,80,105,246,144,130,216
  172. 1710 [131]32,130,56,32,40,2,128,0
  173. 1720 [131]3,192,0,3,192,0,3,0
  174. 1730 [131]0,3,245,0,3,5,64,3
  175. 1740 [131]22,128,3,216,32,3,248,32
  176. 1750 [131]21,114,128,90,112,0,96,176
  177. 1760 [131]0,32,128,0,10,0,0,0
  178. 1770 [131]0,60,0,0,60,0,0,12
  179. 1780 [131]0,5,252,0,21,12,0,41
  180. 1790 [131]76,0,130,124,0,130,252,0
  181. 1800 [131]40,213,64,0,218,80,0,224
  182. 1810 [131]144,0,32,128,0,10,0,0
  183. 1820 ml$[178]"new"[170][199](8)[170]"exp<"[170][199](3)[170]"verifyxmid$"[170][199](16)[170][199](248)[170]"lsintab(":[151]835,0
  184. 1830 [151]836,208:[151]830,0:[151]831,216:[151]828,0:[151]829,56:[151]56334,0
  185. 1840 [151]1,51:ml$[178]ml$:[158]([194](51)[170]256[172][194](52)):[151]1,55:[151]56334,1
  186. 1850 [129]i[178]12528[164]12543:[135]j:[151]i,j:[130]:[151]53272,[194](53272)[175]240[176]12
  187. 1860 [129]i[178]0[164]7:[135]a:c$(i)[178][199](a):[130]:[142]
  188. 1870 [131] 15,16,32,127,103,127,48,48
  189. 1880 [131] 224,16,8,252,204,252,24,24
  190. 1890 [131]5,28,31,144,153,155,158,159
  191. 1900 j[178]15744:[129]i[178]0[164]127:[135]a:[151]j[170]i,a:[130]:[142]
  192. 1910 [131]81,64,0,102,69,0,102,70
  193. 1920 [131]69,26,70,89,22,69,169,105
  194. 1930 [131]145,164,22,161,164,1,65,144
  195. 1940 [131]64,0,148,80,0,73,100,0
  196. 1950 [131]25,100,0,36,24,0,16,4
  197. 1960 [131]0,20,64,0,41,80,0,36
  198. 1970 [131]100,0,36,25,0,164,25,0
  199. 1980 [131]80,6,128,0,1,64,0,1
  200. 1990 [131]0,0,0,16,0,0,101,69
  201. 2000 [131]5,102,70,89,106,65,164,25
  202. 2010 [131]145,164,6,161,144,1,65,144
  203. 2020 [131]80,0,64,100,0,5,24,0
  204. 2030 [131]25,24,0,41,24,0,20,68
  205. 2040 [131]0,0,80,0,5,100,0,25
  206. 2050 [131]100,0,36,25,0,164,5,0
  207. 2060 [131]80,6,128,0,1,64,0,1
  208. 2070 [129]i[178]0[164]57:[135]a:[151]820[170]i,a:[130]:[158]820:[142]
  209. 2080 [131] 120,169,65,141,20,3,169,3,141,21
  210. 2090 [131] 3,88,96,173,27,212,41,1,77,254
  211. 2100 [131] 7,141,254,7,165,203,201,60,208,15
  212. 2110 [131] 32,100,3,32,159,255,165,203,201,60
  213. 2120 [131] 208,247,32,103,3,76,49,234,32,159
  214. 2130 [131] 255,165,203,201,60,240,247,96
  215.